unit mainform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, IfxConnection, TestCase, IfxCustomDataset,
  IfxQuery;

type
  TformMain = class(TForm)
    memoLog: TMemo;
    buttonRun: TButton;
    IfxConnection: TIfxConnection;
    procedure FormCreate(Sender: TObject);
    procedure buttonRunClick(Sender: TObject);
  private
    FTestCase: TNewFeatures117;
    procedure OnTestCaseLog(const Message: string);
  public
  end;

var
  formMain: TformMain;

implementation

{$R *.dfm}

procedure TformMain.FormCreate(Sender: TObject);
begin
  FTestCase := TNewFeatures117.Create;
  FTestCase.OnLog := OnTestCaseLog;
end;

procedure TformMain.buttonRunClick(Sender: TObject);
begin
  memoLog.Clear;
  FTestCase.Run;
end;

procedure TformMain.OnTestCaseLog(const Message: string);
begin
  memoLog.Lines.Add(Message);
end;

end.
